VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmPendaftaranMember 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Manajemen Member"
   ClientHeight    =   6240
   ClientLeft      =   3390
   ClientTop       =   195
   ClientWidth     =   9240
   Icon            =   "FrmPendaftaranMember.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6240
   ScaleWidth      =   9240
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
      Height          =   6255
      Left            =   0
      TabIndex        =   21
      Top             =   0
      Width           =   9255
      _ExtentX        =   16325
      _ExtentY        =   11033
      BackColor1      =   0
      BackColor2      =   4210752
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   0
      TitleColor2     =   4210752
      TitleGradient   =   2
      TitleHeight     =   400
      BorderColor     =   49152
      BorderWidth     =   2
      Begin VB.CheckBox chkstop 
         BackColor       =   &H00191919&
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   1320
         TabIndex        =   36
         Top             =   2880
         Width           =   255
      End
      Begin VB.TextBox txtmnt1 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   8550
         MaxLength       =   2
         TabIndex        =   14
         Top             =   2685
         Width           =   375
      End
      Begin VB.TextBox txthrs1 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   8070
         MaxLength       =   2
         TabIndex        =   13
         Top             =   2685
         Width           =   375
      End
      Begin VB.TextBox txtmnt 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   6750
         MaxLength       =   2
         TabIndex        =   12
         Top             =   2685
         Width           =   375
      End
      Begin VB.TextBox txthrs 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   6270
         MaxLength       =   2
         TabIndex        =   11
         Top             =   2685
         Width           =   375
      End
      Begin VB.CheckBox chkblock 
         BackColor       =   &H00191919&
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   1320
         TabIndex        =   6
         Top             =   2520
         Width           =   255
      End
      Begin VB.ComboBox cbojenis 
         BackColor       =   &H00000000&
         ForeColor       =   &H0000C000&
         Height          =   315
         Left            =   6240
         TabIndex        =   10
         Text            =   "Tetap"
         Top             =   2160
         Visible         =   0   'False
         Width           =   1215
      End
      Begin VB.TextBox TxtPassword 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         IMEMode         =   3  'DISABLE
         Left            =   1350
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   2085
         Width           =   1815
      End
      Begin VB.TextBox TxtTelpon 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   6270
         TabIndex        =   9
         Top             =   1725
         Width           =   2655
      End
      Begin VB.TextBox TxtAlamat 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   6270
         TabIndex        =   7
         Top             =   765
         Width           =   2655
      End
      Begin VB.TextBox TxtDeposit 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   6270
         TabIndex        =   8
         Top             =   1245
         Width           =   2655
      End
      Begin VB.TextBox TxtNama 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1350
         TabIndex        =   3
         Top             =   1605
         Width           =   2655
      End
      Begin VB.TextBox TxtUser 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1350
         TabIndex        =   2
         Top             =   1125
         Width           =   2655
      End
      Begin VB.OptionButton opmem 
         BackColor       =   &H00404040&
         Caption         =   "Member"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   2640
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   720
         Width           =   1335
      End
      Begin VB.OptionButton OpPay 
         BackColor       =   &H00404040&
         Caption         =   "PayFirst"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   1320
         Style           =   1  'Graphical
         TabIndex        =   0
         Top             =   720
         Width           =   1335
      End
      Begin BLacKPeaRLOCX.ButtonNix ButtonNix1 
         Height          =   375
         Left            =   3360
         TabIndex        =   5
         Top             =   2040
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "View"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmPendaftaranMember.frx":B532
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame2 
         Height          =   735
         Left            =   240
         TabIndex        =   28
         Top             =   5280
         Width           =   8775
         _ExtentX        =   15478
         _ExtentY        =   1296
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   ""
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   49152
         TitleColor1     =   2565927
         TitleColor2     =   2565927
         TitleGradient   =   0
         TitleHeight     =   350
         BorderColor     =   49152
         BorderWidth     =   2
         Begin BLacKPeaRLOCX.ButtonNix CmdEdit 
            Height          =   495
            Left            =   2520
            TabIndex        =   17
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Edit"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranMember.frx":B54E
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdHapus 
            Height          =   495
            Left            =   4800
            TabIndex        =   18
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Hapus"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranMember.frx":B56A
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdTutup 
            Height          =   495
            Left            =   7080
            TabIndex        =   19
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Tutup"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranMember.frx":B586
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdSimpan 
            Height          =   495
            Left            =   360
            TabIndex        =   16
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Simpan/Baru"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranMember.frx":B5A2
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdUbah 
            Height          =   495
            Left            =   2520
            TabIndex        =   20
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Simpan/Edit"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranMember.frx":B5BE
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
      End
      Begin MSFlexGridLib.MSFlexGrid Grid 
         Height          =   1935
         Left            =   240
         TabIndex        =   15
         Top             =   3240
         Width           =   8775
         _ExtentX        =   15478
         _ExtentY        =   3413
         _Version        =   393216
         Cols            =   11
         FixedCols       =   0
         BackColor       =   0
         ForeColor       =   49152
         BackColorFixed  =   4210752
         ForeColorFixed  =   49152
         BackColorSel    =   12582912
         ForeColorSel    =   128
         BackColorBkg    =   0
         GridColor       =   16384
         GridColorFixed  =   16384
         Enabled         =   0   'False
         Appearance      =   0
      End
      Begin VB.Label Label14 
         BackStyle       =   0  'Transparent
         Caption         =   "Auto Stop"
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   1680
         TabIndex        =   37
         Top             =   2880
         Width           =   1335
      End
      Begin VB.Label Label13 
         BackStyle       =   0  'Transparent
         Caption         =   "*Format 24 hours(00:00 - 23:59)"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   6240
         TabIndex        =   35
         Top             =   3000
         Width           =   2775
      End
      Begin VB.Label Label12 
         BackStyle       =   0  'Transparent
         Caption         =   "Sampai"
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   7320
         TabIndex        =   34
         Top             =   2640
         Width           =   615
      End
      Begin VB.Label Label11 
         BackStyle       =   0  'Transparent
         Caption         =   "Aktif Dari"
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   4920
         TabIndex        =   33
         Top             =   2640
         Width           =   855
      End
      Begin VB.Shape Shape5 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   8520
         Shape           =   4  'Rounded Rectangle
         Top             =   2640
         Width           =   450
      End
      Begin VB.Shape Shape4 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   8040
         Shape           =   4  'Rounded Rectangle
         Top             =   2640
         Width           =   450
      End
      Begin VB.Shape Shape3 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   6720
         Shape           =   4  'Rounded Rectangle
         Top             =   2640
         Width           =   450
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   6240
         Shape           =   4  'Rounded Rectangle
         Top             =   2640
         Width           =   450
      End
      Begin VB.Label Label10 
         BackStyle       =   0  'Transparent
         Caption         =   "Block Content"
         ForeColor       =   &H0000FF00&
         Height          =   255
         Left            =   1680
         TabIndex        =   32
         Top             =   2520
         Width           =   1335
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "Status"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   4920
         TabIndex        =   31
         Top             =   2160
         Visible         =   0   'False
         Width           =   1215
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1320
         Shape           =   4  'Rounded Rectangle
         Top             =   2040
         Width           =   1890
      End
      Begin VB.Shape Shape13 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   6240
         Shape           =   4  'Rounded Rectangle
         Top             =   1680
         Width           =   2730
      End
      Begin VB.Shape Shape20 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   6240
         Shape           =   4  'Rounded Rectangle
         Top             =   720
         Width           =   2730
      End
      Begin VB.Shape Shape19 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   6240
         Shape           =   4  'Rounded Rectangle
         Top             =   1200
         Width           =   2730
      End
      Begin VB.Shape Shape18 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1320
         Shape           =   4  'Rounded Rectangle
         Top             =   1560
         Width           =   2730
      End
      Begin VB.Shape Shape14 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1320
         Shape           =   4  'Rounded Rectangle
         Top             =   1080
         Width           =   2730
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Jenis"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   30
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "*contoh 01:00:00"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   7560
         TabIndex        =   29
         Top             =   1680
         Width           =   1455
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "Saldo"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   4920
         TabIndex        =   27
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "No. Telpon"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   4920
         TabIndex        =   26
         Top             =   1680
         Width           =   1455
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "Alamat"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   4920
         TabIndex        =   25
         Top             =   720
         Width           =   1335
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   24
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "Password"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   23
         Top             =   2040
         Width           =   1455
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "ID"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   22
         Top             =   1080
         Width           =   615
      End
   End
End
Attribute VB_Name = "FrmPendaftaranMember"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub ButtonNix1_Click()
TxtPassword.PasswordChar = ""
TxtPassword.SetFocus
End Sub
Private Sub cmdedit_Click()
cmdedit.Visible = False
CmdUbah.Visible = True
Grid.Enabled = True

End Sub
Private Sub cmdhapus_Click()
On Error GoTo hell
    If MsgBox("Anda yakin akan menghapus member " & Grid.TextMatrix(Grid.Row, 0) & " dari " & FrmMain.Txtnama_warnet.Caption & ".", vbYesNo + vbInformation, "Prompt delete") = vbYes Then
    If BLacKFrame1.Caption = "Pendaftaran Member" Then
    rec.Open "SELECT member.* FROM member WHERE member.user = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 0 Then
    Set rec = Nothing
    MsgBox "Tidak ada data yang akan di hapus. cek data yang akan di hapus.", vbInformation, "Nothing to Delete"
    Else
    rec.Delete
    rec.Close
    End If
    End If
    Call loadgridMem
        If BLacKFrame1.Caption = "Pendaftaran PayFirst" Then
    rec.Open "SELECT prepaid.* FROM prepaid WHERE prepaid.user = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 0 Then
    Set rec = Nothing
    MsgBox "Tidak ada data yang akan di hapus. cek data yang akan di hapus.", vbInformation, "Nothing to Delete"
    Else
    rec.Delete
    rec.Close
    End If
    End If
    End If
    bersih
    Call loadgridPay
    TxtUser.Text = ""
    TxtUser.SetFocus
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "cmdHapus", Me.Name
 Resume IfNoErr

End Sub
Private Sub CmdSimpan_Click()
On Error GoTo hell
    If TxtUser.Text = "" And TxtPassword.Text = "" And TxtDeposit.Text = "" Then
    MsgBox " Username, Password dan Deposit wajib diisi", vbInformation, "Not Complete Data"
    Exit Sub
    Else
Dim passwd As String
    passwd = EncryptText(TxtPassword.Text, "password")
If BLacKFrame1.Caption = "Pendaftaran Member" Then
    rec.Open "SELECT member.* FROM member WHERE member.user = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 1 Then
    MsgBox "Maaf nama User sudah ada.", vbInformation, "Rekomendasi"
    CmdSimpan.Enabled = True
    CmdUbah.Enabled = True
    cmdHapus.Enabled = True
    rec.Close
    Else
    If TxtUser.Text = "" And TxtPassword.Text = "" And TxtDeposit.Text = "" Then
    MsgBox " Username, Password dan Deposit wajib diisi", vbInformation, "Not Complete Data"
    rec.Close
    Else
        rec.AddNew
        rec(0) = TxtUser.Text
        rec(4) = passwd
        rec(1) = txtnama.Text
        rec(2) = TxtAlamat.Text
        rec(3) = TxtTelpon.Text
        rec(5) = Val(TxtDeposit.Text)
        rec(6) = "not active"
        rec(7) = 0
        If chkblock.value = 1 Then
        rec(8) = "Yes"
        Else
        rec(8) = "No"
        End If
        rec.Update
        rec.Close
        End If
    End If
    bersih
    TxtUser.Text = ""
    TxtUser.SetFocus
    Call loadgridMem
End If
If BLacKFrame1.Caption = "Pendaftaran PayFirst" Then
    rec.Open "SELECT Prepaid.* FROM Prepaid WHERE Prepaid.user = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 1 Then
    MsgBox "Maaf nama User sudah ada.", vbInformation, "Rekomendasi"
    CmdSimpan.Enabled = True
    CmdUbah.Enabled = True
    cmdHapus.Enabled = True
    rec.Close
    Else
    If TxtUser.Text = "" And TxtPassword.Text = "" And TxtDeposit.Text = "" Then
    MsgBox " Username, Password dan Deposit wajib diisi", vbInformation, "Not Complete Data"
    Else
        rec.AddNew
        rec(0) = TxtUser.Text
        rec(4) = passwd
        rec(1) = txtnama.Text
        rec(2) = TxtAlamat.Text
        rec(3) = TxtTelpon.Text
        rec(5) = Val(TxtDeposit.Text)
        rec(6) = "not active"
        rec(7) = 0
        rec(8) = cbojenis.Text
        If chkblock.value = 1 Then
        rec(9) = "Yes"
        Else
        rec(9) = "No"
        End If
        rec(10) = txthrs.Text & txtmnt.Text
        rec(11) = txthrs1.Text & txtmnt1.Text
        If chkstop.value = 1 Then
        rec(12) = "Yes"
        Else
        rec(12) = "No"
        End If

        rec.Update
        rec.Close
        End If
    End If
    bersih
    TxtUser.Text = ""
    TxtUser.SetFocus
    Call loadgridPay
End If
End If
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CmdSimpan_Click", Me.Name
 Resume IfNoErr
End Sub
Private Sub CmdTutup_Click()
Unload Me
End Sub
Private Sub CmdUbah_Click()
On Error GoTo gobloK
Dim passwd As String
passwd = EncryptText(TxtPassword.Text, "password")
If BLacKFrame1.Caption = "Pendaftaran Member" Then
rec.Open "Select member.* from member where member.user='" & TxtUser.Text & "'", conn, , adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
MsgBox "Tidak ada data yang akan di ubah cek data yang akan di ubah.", vbInformation, "Nothing to Delete"
Else

rec(0) = TxtUser.Text
rec(1) = txtnama.Text
rec(2) = TxtAlamat.Text
rec(3) = TxtTelpon.Text
rec(4) = passwd
rec(5) = TxtDeposit.Text
rec(8) = cbojenis.Text
If chkblock.value = 1 Then
rec(8) = "Yes"
Else
rec(8) = "No"
End If
rec.Update
rec.Close
Call loadgridMem
bersih

End If
End If
If BLacKFrame1.Caption = "Pendaftaran PayFirst" Then
rec.Open "Select prepaid.* from prepaid where prepaid.user='" & TxtUser.Text & "'", conn, , adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
MsgBox "Tidak ada data yang akan di ubah cek data yang akan di ubah.", vbInformation, "Nothing to Delete"
Else

rec(0) = TxtUser.Text
rec(1) = txtnama.Text
rec(2) = TxtAlamat.Text
rec(3) = TxtTelpon.Text
rec(4) = passwd
rec(5) = TxtDeposit.Text
rec(8) = cbojenis.Text
If chkblock.value = 1 Then
rec(9) = "Yes"
Else
rec(9) = "No"
End If
rec(10) = txthrs.Text & txtmnt.Text
rec(11) = txthrs1.Text & txtmnt1.Text
 If chkstop.value = 1 Then
        rec(12) = "Yes"
        Else
        rec(12) = "No"
        End If
rec.Update
rec.Close
Call loadgridPay
bersih
End If
End If

cmdedit.Visible = True
CmdUbah.Visible = False
Grid.Enabled = False

IfNoErr:
Exit Sub
gobloK:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CmdUbah_Click", Me.Name
 Resume IfNoErr
End Sub
Private Sub Form_Load()
Grid.Enabled = False
cbojenis.AddItem "Tetap"
cbojenis.AddItem "Tidak Tetap"
StyleS
End Sub
Private Sub Grid_Click()
Dim passwd As String
If Grid.TextMatrix(Grid.Row, 0) = "User Name" Then
Exit Sub
Else
TxtUser.Text = Grid.TextMatrix(Grid.Row, 0)
txtnama.Text = Grid.TextMatrix(Grid.Row, 1)
TxtAlamat.Text = Grid.TextMatrix(Grid.Row, 2)
TxtTelpon.Text = Grid.TextMatrix(Grid.Row, 3)
passwd = DecryptText(Grid.TextMatrix(Grid.Row, 4), "password")
TxtDeposit.Text = Grid.TextMatrix(Grid.Row, 5)
TxtPassword.Text = passwd
txthrs.Text = Left(Grid.TextMatrix(Grid.Row, 9), 2)
txtmnt.Text = Right(Grid.TextMatrix(Grid.Row, 9), 2)
txthrs1.Text = Left(Grid.TextMatrix(Grid.Row, 10), 2)
txtmnt1.Text = Right(Grid.TextMatrix(Grid.Row, 10), 2)
End If
End Sub
Private Sub opmem_Click()
Label5.Caption = "Alamat"
Label6.Caption = "No Telp"
TxtTelpon.Width = 2655
Shape13.Width = 2730
Label7.Caption = "Saldo"
BLacKFrame1.Caption = "Pendaftaran Member"
TxtUser.Text = ""
txtnama.Text = ""
TxtPassword.Text = ""
TxtAlamat.Text = ""
TxtDeposit.Text = ""
TxtTelpon.Text = ""
chkstop.Visible = False
Label14.Visible = False
Label9.Visible = False
cbojenis.Visible = False
Label11.Visible = False
Label13.Visible = False
Label12.Visible = False
txthrs.Visible = False
txtmnt.Visible = False
txthrs1.Visible = False
txtmnt1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
Shape4.Visible = False
Shape5.Visible = False
Call loadgridMem
End Sub
Private Sub OpPay_Click()
Label6.Caption = "Duration"
TxtTelpon.Width = 855
Shape13.Width = 930
Label7.Caption = "Bayar 1st"
BLacKFrame1.Caption = "Pendaftaran PayFirst"
Label9.Visible = True
cbojenis.Visible = True
TxtUser.Text = ""
txtnama.Text = ""
TxtPassword.Text = ""
TxtAlamat.Text = ""
TxtDeposit.Text = ""
TxtTelpon.Text = ""
chkstop.Visible = True
Label14.Visible = True
Label11.Visible = True
Label13.Visible = True
Label12.Visible = True
txthrs.Visible = True
txtmnt.Visible = True
txthrs1.Visible = True
txtmnt1.Visible = True
Shape2.Visible = True
Shape3.Visible = True
Shape4.Visible = True
Shape5.Visible = True

Call loadgridPay
End Sub

Private Sub TxtAlamat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtTelpon.SetFocus
    End If
End Sub


Private Sub TxtDeposit_KeyPress(KeyAscii As Integer)
  If KeyAscii = 8 Then
    KeyAscii = 8
    Exit Sub
  End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If

End Sub

Private Sub txthrs_Change()
If Val(txthrs.Text) > 23 Then
txthrs.Text = 23
End If
End Sub
Private Sub txthrs1_Change()
If Val(txthrs1.Text) > 23 Then
txthrs1.Text = 23
End If
End Sub

Private Sub txthrs_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
    KeyAscii = 8
    Exit Sub
  End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Private Sub txthrs1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
    KeyAscii = 8
    Exit Sub
  End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Private Sub txtmnt_Change()
If Val(txtmnt.Text) > 59 Then
txtmnt.Text = 59
End If
End Sub
Private Sub txtmnt1_Change()
If Val(txtmnt1.Text) > 59 Then
txtmnt1.Text = 59
End If
End Sub


Private Sub txtmnt_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
    KeyAscii = 8
    Exit Sub
  End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Private Sub txtmnt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
    KeyAscii = 8
    Exit Sub
  End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtAlamat.SetFocus
    End If
End Sub
Private Sub TxtPassword_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtnama.SetFocus
    End If
End Sub

Private Sub TxtTelpon_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtDeposit.SetFocus
    End If
End Sub
Private Sub loadgridMem()
On Error GoTo hell
    Grid.TextMatrix(0, 0) = "User Name"
    Grid.TextMatrix(0, 1) = "Nama Asli"
    Grid.TextMatrix(0, 2) = "Alamat"
    Grid.TextMatrix(0, 3) = "Telephone "
    Grid.TextMatrix(0, 4) = "Password"
    Grid.TextMatrix(0, 5) = "Deposit"
    Grid.TextMatrix(0, 6) = "B.Content"
    Grid.ColWidth(0) = 1100
    Grid.ColWidth(1) = 1700
    Grid.ColWidth(2) = 1900
    Grid.ColWidth(3) = 1500
    Grid.ColWidth(4) = 0
    Grid.ColWidth(5) = 900
Grid.ColWidth(6) = 800
Grid.ColWidth(7) = 0
Grid.ColWidth(8) = 0
Grid.ColWidth(9) = 0
    rec.Open "member", conn
    If Not rec.RecordCount = 0 Then
        Grid.Rows = rec.RecordCount + 1
        rec.MoveFirst
        For i = 1 To rec.RecordCount
            Grid.TextMatrix(i, 0) = rec(0)
            Grid.TextMatrix(i, 1) = rec(1)
            Grid.TextMatrix(i, 2) = rec(2)
            Grid.TextMatrix(i, 3) = rec(3)
            Grid.TextMatrix(i, 4) = rec(4)
            Grid.TextMatrix(i, 5) = Format(rec(5), "##,###")
            Grid.TextMatrix(i, 6) = rec(8)
            rec.MoveNext
        Next i
    Else
        Grid.Rows = 1
    End If
    rec.Close
IfNoErr:
Exit Sub
hell:
' MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "loadgridmem", Me.Name
 Resume IfNoErr

End Sub

Private Sub loadgridPay()
'On Error GoTo hell
    Grid.TextMatrix(0, 0) = "ID"
    Grid.TextMatrix(0, 1) = "Nama"
    Grid.TextMatrix(0, 2) = "Alamat"
    Grid.TextMatrix(0, 3) = "Durasi "
    Grid.TextMatrix(0, 4) = "Password"
    Grid.TextMatrix(0, 5) = "Bayar 1st"
    Grid.TextMatrix(0, 6) = "B.Content"
    Grid.TextMatrix(0, 7) = "AutoStop"
    Grid.TextMatrix(0, 8) = "Status"
    Grid.TextMatrix(0, 9) = "Mulai"
    Grid.TextMatrix(0, 10) = "Sampai"
    Grid.ColWidth(0) = 1000
    Grid.ColWidth(1) = 1200
    Grid.ColWidth(2) = 1500
    Grid.ColWidth(3) = 800
    Grid.ColWidth(4) = 0
    Grid.ColWidth(5) = 1000
    Grid.ColWidth(6) = 800
    Grid.ColWidth(7) = 800
    Grid.ColWidth(8) = 1000
    Grid.ColWidth(9) = 700
    Grid.ColWidth(9) = 700
    rec.Open "prepaid", conn
    If Not rec.RecordCount = 0 Then
        Grid.Rows = rec.RecordCount + 1
        rec.MoveFirst
        For i = 1 To rec.RecordCount
            Grid.TextMatrix(i, 0) = rec(0)
            Grid.TextMatrix(i, 1) = rec(1)
            Grid.TextMatrix(i, 2) = rec(2)
            Grid.TextMatrix(i, 3) = rec(3)
            Grid.TextMatrix(i, 4) = rec(4)
            Grid.TextMatrix(i, 5) = Format(rec(5), "##,###")
            Grid.TextMatrix(i, 6) = rec(9)
            Grid.TextMatrix(i, 7) = rec(12)
            Grid.TextMatrix(i, 8) = rec(8)
            Grid.TextMatrix(i, 9) = Left(rec(10), 2) & ":" & Right(rec(10), 2)
            Grid.TextMatrix(i, 10) = Left(rec(11), 2) & ":" & Right(rec(11), 2)
            rec.MoveNext
        Next i
    Else
        Grid.Rows = 1
    End If
    rec.Close
'IfNoErr:
'Exit Sub
'hell:
' 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
' TulisError Err.Description, Err.Number, "loadgridpay", Me.Name
' Resume IfNoErr

End Sub
Private Sub bersih()
    TxtUser.Text = ""
    TxtPassword.Text = ""
    txtnama.Text = ""
    TxtAlamat.Text = ""
    TxtTelpon.Text = ""
    TxtDeposit.Text = ""
End Sub
Private Sub Baru()
    bersih
    TxtPassword.SetFocus
    CmdSimpan.Enabled = True
    CmdUbah.Enabled = False
    cmdHapus.Enabled = False
End Sub
Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = FrmStyles.txtlButtonType.Text
        ctrl.ColorScheme = FrmStyles.txtlColorScheme.Text
        ctrl.Backcolor = FrmStyles.txtlBackcolor.Text
        ctrl.BackOver = FrmStyles.txtlBackOver.Text
        ctrl.Forecolor = FrmStyles.txtlForecolor.Text
        ctrl.ForeOver = FrmStyles.txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = FrmStyles.frameBackColor1.Text
         ctrl.BackColor2 = FrmStyles.frameBackColor2.Text
         ctrl.BorderColor = FrmStyles.frameBorderColor.Text
         ctrl.Forecolor = FrmStyles.frameForecolor.Text
         ctrl.TitleColor1 = FrmStyles.frameTitleColor1.Text
         ctrl.TitleColor2 = FrmStyles.frameTitleColor2.Text
         If FrmStyles.frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf FrmStyles.frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf FrmStyles.frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If FrmStyles.Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf FrmStyles.Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf FrmStyles.Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If

    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.TForecolor.Text
         ctrl.Backcolor = FrmStyles.TBackcolor.Text
         ctrl.BackColorMain = FrmStyles.TBackColorMain.Text
         ctrl.BorderColor = FrmStyles.TBorderColor.Text
         ctrl.FocusBackColor = FrmStyles.TFocusBackColor.Text
         ctrl.FocusBackMainColor = FrmStyles.TFocusBackMainColor.Text
         ctrl.FocusBorderColor = FrmStyles.TFocusBorderColor.Text
         ctrl.FocusForeColor = FrmStyles.TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.GDBackcolor.Text
         ctrl.BackColorBkg = FrmStyles.GDBackColorBkg.Text
         ctrl.BackColorSel = FrmStyles.GDBackColorSel.Text
         ctrl.BackColorFixed = FrmStyles.GDBackColorFixed.Text
         ctrl.ForeColorSel = FrmStyles.GDForeColorSel.Text
         ctrl.Forecolor = FrmStyles.GDForecolor.Text
         ctrl.ForeColorFixed = FrmStyles.GDForeColorFixed.Text
         ctrl.GridColor = FrmStyles.GDGridColor.Text
         ctrl.GridColorFixed = FrmStyles.GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lbltextfore.Text
         ctrl.Backcolor = FrmStyles.lbltextback.Text
    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.cboForeColor.Text
         ctrl.Backcolor = FrmStyles.cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.opForecolor.Text
         ctrl.Backcolor = FrmStyles.opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.LBackColor.Text
    End If
    Me.Backcolor = FrmStyles.WFore.Text
    End If
Next ctrl
End Sub

Private Sub txtuser_GotFocus()
TxtUser.Backcolor = &H0&
TxtUser.Forecolor = vbWhite
End Sub
Private Sub txtuser_LostFocus()
TxtUser.Backcolor = &H404040
TxtUser.Forecolor = &HC000&
End Sub
Private Sub TxtNama_GotFocus()
txtnama.Backcolor = &H0&
txtnama.Forecolor = vbWhite
End Sub
Private Sub TxtNama_LostFocus()
txtnama.Backcolor = &H404040
txtnama.Forecolor = &HC000&
End Sub
Private Sub TxtPassword_GotFocus()
TxtPassword.Backcolor = &H0&
TxtPassword.Forecolor = vbWhite
End Sub
Private Sub TxtPassword_LostFocus()
TxtPassword.PasswordChar = "*"
TxtPassword.Backcolor = &H404040
TxtPassword.Forecolor = &HC000&
End Sub
Private Sub TxtAlamat_GotFocus()
TxtAlamat.Backcolor = &H0&
TxtAlamat.Forecolor = vbWhite
End Sub
Private Sub TxtAlamat_LostFocus()
TxtAlamat.Backcolor = &H404040
TxtAlamat.Forecolor = &HC000&
End Sub
Private Sub TxtDeposit_GotFocus()
TxtDeposit.Backcolor = &H0&
TxtDeposit.Forecolor = vbWhite
End Sub
Private Sub TxtDeposit_LostFocus()
TxtDeposit.Backcolor = &H404040
TxtDeposit.Forecolor = &HC000&
End Sub
Private Sub TxtTelpon_GotFocus()
TxtTelpon.Backcolor = &H0&
TxtTelpon.Forecolor = vbWhite
End Sub
Private Sub TxtTelpon_LostFocus()
TxtTelpon.Backcolor = &H404040
TxtTelpon.Forecolor = &HC000&
End Sub
Private Sub txthrs_GotFocus()
txthrs.Backcolor = &H0&
txthrs.Forecolor = vbWhite
End Sub
Private Sub txthrs_LostFocus()
txthrs.Backcolor = &H404040
txthrs.Forecolor = &HC000&
End Sub
Private Sub txthrs1_GotFocus()
txthrs1.Backcolor = &H0&
txthrs1.Forecolor = vbWhite
End Sub
Private Sub txthrs1_LostFocus()
txthrs1.Backcolor = &H404040
txthrs1.Forecolor = &HC000&
End Sub
Private Sub txtmnt_GotFocus()
txtmnt.Backcolor = &H0&
txtmnt.Forecolor = vbWhite
End Sub
Private Sub txtmnt_LostFocus()
txtmnt.Backcolor = &H404040
txtmnt.Forecolor = &HC000&
End Sub
Private Sub txtmnt1_GotFocus()
txtmnt1.Backcolor = &H0&
txtmnt1.Forecolor = vbWhite
End Sub
Private Sub txtmnt1_LostFocus()
txtmnt1.Backcolor = &H404040
txtmnt1.Forecolor = &HC000&
End Sub

